home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 4 / PC World Interactive 4.iso / share / internet / LSMIRC61.EXE / start.in_ / start.in
Encoding:
INI File  |  1997-09-20  |  10.8 KB  |  234 lines
  1. [script]
  2. n0=;
  3. n1=;         This section deals with startup/connect/disconnect/dde initialization
  4. n2=;         There isn't much commenting in here...  you shouldn't have to touch it tho.
  5. n3=;
  6. n4=;         If you modify this stuff, have fun!! If you mess it up, your're on your own!
  7. n5=;         Remember that any lines that appear after an error occurs will not be exceuted
  8. n6=;
  9. n7=;         The first part deals with DDE service name resolution and stuff like that...
  10. n8=;         It's real tricky...   messing this up will most likely cause all of Little Star's
  11. n9=;         external applications to not run properly (if at all)
  12. n10=;
  13. n11=alias rdde return $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z)
  14. n12=alias initdde return $1
  15. n13=alias checkdde {
  16. n14=  set %temp $rdde | set %init $rdde
  17. n15=  ddeserver on %init | if $1 = clear clear
  18. n16=  dde %DDEService command "" /dden $initdde(%init) $initdde(%temp)
  19. n17=}
  20. n18=alias rm return $read -l $+ $1 $mircdiroptions\messages.txt
  21. n19=alias taken {
  22. n20=  .timer910 off | echo -a %dis10 $+ DDE service name confliction!
  23. n21=  echo -a %dis23 $+ -DDE Wizard- %dis22 $+ " $+ %DDEservice $+ " is already in use by another Little Star
  24. n22=  echo -a %dis23 $+ -DDE Wizard- %dis22 $+ selecting a random service name...
  25. n23=  set %originaldde %ddeservice | set %ddeservice $rdde | .timer 1 2 chdde
  26. n24=}
  27. n25=alias dden if $2 != %temp dde $1 command "" /taken
  28. n26=alias ensuredde {
  29. n27=  if (($ddename != %originaldde) && ($ddename != %ddeservice)) {
  30. n28=    .timer230 off
  31. n29=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ it appears the dde server initialization failed.
  32. n30=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ selecting a random service name...
  33. n31=    set %ddeservice $rdde | .timer 1 2 chdde
  34. n32=  }
  35. n33=}
  36. n34=alias chdde ddeserver on %ddeservice | .timer 1 1 lcontrol | speaktome
  37. n35=alias lcontrol run $mircdirbin\control.exe $ddename $+ @ $+ $mircdir
  38. n36=alias speaktome .timer230 -o 1 35 restartcontrol
  39. n37=alias restartcontrol run $mircdirbin\control.exe $ddename $+ @ $+ $mircdir | .timer -o 1 60 checkcontrol | .timer128 off | .timer127 off | .timer126 1 90 startchecking
  40. n38=alias checkcontrol {
  41. n39=  if ($notimer(230)) {
  42. n40=    .timer126 -o 1 90 startchecking | .timer128 off
  43. n41=    alert
  44. n42=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ There appears to be an error with the DDE link to
  45. n43=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ control.exe, which needs to be running in the
  46. n44=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ background.
  47. n45=    echo 4 -a á
  48. n46=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ Most likely, one of us is confused regarding the
  49. n47=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ proper DDE name to use, which is currently $ddename $+ .
  50. n48=    .timer 1 2 echo -a %dis23 $+ -DDE Wizard- %dis22 $+ I will now attempt to correct this problem.
  51. n49=    echo 4 -a á
  52. n50=    .timer 1 3 echo -a %dis23 $+ -DDE Wizard- %dis22 $+ selecting a random DDE service name...
  53. n51=    .timer 1 4 ddeserver on $rdde
  54. n52=    .timer 1 6 echo -a %dis23 $+ -DDE Wizard- %dis22 $+ relaunching the control center
  55. n53=    .timer 1 6 lcontrol | .timer 1 60 checknow
  56. n54=    .timer 1 7 echo -a %dis23 $+ -DDE Wizard- %dis22 $+ if you do not hear from me again soon, all is well
  57. n55=  }
  58. n56=}
  59. n57=alias altconnect {
  60. n58=  .timer126 -o 1 90 startchecking
  61. n59=  if (%starting) {
  62. n60=    unset %starting
  63. n61=    if (%rh61 != $true) {
  64. n62=      inc %st61
  65. n63=      if %st61 // 10 { dde control $ddename readhelp %st61 }
  66. n64=    }
  67. n65=    if (%altconnect) {
  68. n66=      if ((%server != $null) && (%sport != $null)) dde control $ddename $+ connect showlist %server $+ : $+ %sport
  69. n67=      else dde control $ddename $+ connect showlist $null
  70. n68=    }
  71. n69=  }
  72. n70=}
  73. n71=alias startchecking .timer128 -o 0 15 querycontrol
  74. n72=alias querycontrol {
  75. n73=  if ($notimer(230)) {
  76. n74=    dde control $ddename just checking
  77. n75=    .timer127 -o 0 15 restartcontrol
  78. n76=  }
  79. n77=}
  80. n78=alias imhere .timer127 off
  81. n79=alias checknow {
  82. n80=  if ($notimer(230)) {
  83. n81=    alert
  84. n82=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ I am still having trouble establishing a communication
  85. n83=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ link to the control center.  It is currently not running,
  86. n84=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ or is not communicating with me.
  87. n85=    echo 4 -a á
  88. n86=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ I have tried alternate methods and am exhausted.
  89. n87=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ This is final; I will not attempt to reload it again.
  90. n88=    echo 4 -a á
  91. n89=    echo -a %dis23 $+ -DDE Wizard- %dis22 $+ For help trouble shooting, please see the help file.
  92. n90=  }
  93. n91=}
  94. n92=alias doconnect {
  95. n93=  %i = 0
  96. n94=  :nx
  97. n95=  inc %i | %delay = %i * 2
  98. n96=  set %temp $readini $mircdiroptions\options.ini OnConnect  [ [ $1 ] $+ [ %i ] ]
  99. n97=  if (%temp != $null) { .timer 1 %delay %temp | goto nx }
  100. n98=}
  101. n99=alias showstartupdisplay {
  102. n100=  echo 2 ---------------------------------------------------------------------------------------------
  103. n101=  echo 4 Hello $readini c:\setuplog.txt NameandOrg Name
  104. n102=  echo 4 á
  105. n103=  echo 4 áááááá You are using Little Star 6.1
  106. n104=  echo 4 á
  107. n105=  echo 6 áááááááFor updates, check 13http://www.littlestarirc.com
  108. n106=  echo 4 á
  109. n107=  echo 2 ---------------------------------------------------------------------------------------------
  110. n108=  echo 4 á
  111. n109=}
  112. n110=alias checkdirectory {
  113. n111=  if (($right($mircdir,1) != \) || ($chr(32) isin $mircdir)) {
  114. n112=    echo 3 -a acccckkkkkkk!
  115. n113=    echo 3 -a You fall into the same category as 99% of the world who refuses to read readme.txt files.  You installed Little Star to $mircdir $+ , which has a space in the name.  mIRC cannot deal with this in many of it's commands and identifiers and many things will not work right!!!
  116. n114=    echo 4 -a Sorry, but you need to re-install this program!!
  117. n115=    alert     
  118. n116=  }
  119. n117=}
  120. n118=on 1:START:{
  121. n119=  loaddisplay
  122. n120=  set %starting $true
  123. n121=  .timer -o 1 10 ensuredde
  124. n122=  set %DDEService $ro(general,DDEservice)
  125. n123=  writeini $mircdirmirc.ini dde ServiceName %DDEService
  126. n124=  checkdde clear
  127. n125=  .timer910 1 2 chdde
  128. n126=  .ial on
  129. n127=  splay $mircdirstartup.wav
  130. n128=  titlebar Little Star 6.1 Not Connected
  131. n129=  showstartupdisplay
  132. n130=  unset %amsg*
  133. n131=  if (%awaylog = $null) set %awaylog $true
  134. n132=  set %msgs 0
  135. n133=  set %urd $false
  136. n134=  set %notinit $false
  137. n135=  readoptions
  138. n136=  set %notinit $true
  139. n137=  if ((%reset) && (%log)) write -c $logdir\session.log
  140. n138=  if (%botlite) .enable #bot
  141. n139=  else .disable #bot
  142. n140=  .disable #XDCC
  143. n141=  if (%log) write $mircdirlogs\session.log Session Beginning $day $adate $timestamp
  144. n142=  set %dom1 dial-access.att.net
  145. n143=  set %dom2 nodak.edu
  146. n144=  set %dom3 mindspring.com
  147. n145=  set %dom4 uu.net
  148. n146=  if (%firstrun = $null) { usbl | set %firstrun $false }
  149. n147=  if ((%getnick) && ($me != %mynick)) nick %mynick
  150. n148=  set %acn1 $chr(73)
  151. n149=  set %acn2 $chr(108)
  152. n150=  write -c $mircdirrepeat.ini
  153. n151=  write -c $mircdiridle.ini
  154. n152=  set %temp $readini $ul version version
  155. n153=  if %temp != 55 convertuserlist
  156. n154=  checkdirectory
  157. n155=  loadpopups
  158. n156=  loadsounds
  159. n157=}
  160. n158=on 1:CONNECT:{
  161. n159=  .timer933 off
  162. n160=  dde connect $ddename die connected
  163. n161=  .disable #lagmode #clonedeop #login #lookup #revenge #getlong #rclone #nflood
  164. n162=  .disable #invitenames #allwho #altadd #altrem #stats #aww #wbm #lookup2
  165. n163=  .disable #geticmpip #filterops #nukeinfoip #nukeinfoserver
  166. n164=  .disable #clearbans #page #scanlookup #findmatch
  167. n165=  .disable #connectionlookup #findmatch2 #telnetdns #verifylamer #verifylamer2
  168. n166=  .enable #regdns #regctcp #nw
  169. n167=  set %wmip $left($ip,3) $+ .*.*.*
  170. n168=  set %mock $false
  171. n169=  set %donewhois 0
  172. n170=  unset %gaveup
  173. n171=  set %server $server | set %sport $port
  174. n172=  .flood 3 3 30
  175. n173=  .rlevel 70
  176. n174=  .guser 70 $me 3
  177. n175=  .auser 70 $me
  178. n176=  unset %cnick* | unset %cadr* | unset %updatedial* | unset %ticks* | unset %xdccm*
  179. n177=  unset %vote* | unset %real* | unset %fservcredit* | unset %lastpart* | unset %key*
  180. n178=  unset %hbanned* | unset %atfs* | unset %rchan* | unset %rcs* | unset %ctcp*
  181. n179=  unset %checkattempt* | unset %fsady* | unset %tv* | unset %tmsg*
  182. n180=  unset %findnick* | unset %findnum | unset %fnum | unset %justfound*
  183. n181=  if (%lagcheck) {
  184. n182=    titlebar Little Star 6.1  $me on $server $+ : $+ $port  Lag: waiting for info
  185. n183=    .timer101 0 120 getlag | getlag
  186. n184=  }
  187. n185=  else titlebar Little Star 6.1  $me on $server $+ : $+ $port
  188. n186=  if ((%getnick) && ($me != %mynick)) getnick
  189. n187=  .timer 0 600 /raw -q PRIVMSG $!me : $+ $chr(1) $+ PONG Anti-Idle! $+ $chr(1)
  190. n188=  .timer 0 300 idlecheck
  191. n189=  if (%cycleops) .timer 0 15 cycleops
  192. n190=  .disable #page
  193. n191=  if (undernet isin $server) { doconnect Undernet | set %type AlwaysUndernet }
  194. n192=  elseif (dal.net isin $server) { doconnect Dalnet | set %type AlwaysDalnet }
  195. n193=  elseif (galaxynet isin $server) { doconnect GalaxyNet | set %type AlwaysGalaxy }
  196. n194=  else { doconnect Other | set %type AlwaysOther }
  197. n195=  set %doneinit $false
  198. n196=  .timer -o 1 15 set %doneinit $true
  199. n197=  set %me $me
  200. n198=  unset %myadr
  201. n199=  .enable #gma
  202. n200=  userhost $me
  203. n201=  %c = 0 | unset %alwaysjoin*
  204. n202=  :alwaysjoin
  205. n203=  inc %c
  206. n204=  set %temp $ro(%type,Chan [ $+ [ %c ] ] )
  207. n205=  if %temp != $null {
  208. n206=    set %alwaysjoin [ $+ [ %c ] ] %temp
  209. n207=    goto alwaysjoin
  210. n208=  }
  211. n209=  set %temp $left(2,$time)
  212. n210=  if (%temp = 1:) || (%temp = 2:) || (%temp = 3:) || (%temp = 4:) || (%temp = 5:) || (%temp = 6:) || (%temp = 7:) || (%temp = 8:) || (%temp = 9:) || (%temp = 10) || (%temp = 11) || (%temp = 0:) speak good morning $me $+ . little star is ready
  213. n211=  elseif (%temp = 12) || (%temp = 13) || (%temp = 14) || (%temp = 15) || (%temp = 16) || (%temp = 17) speak good afternoon $me $+ . little star is ready
  214. n212=  else speak good evening $me $+ . little star is ready
  215. n213=  echo 4 -s áááááá
  216. n214=  echo 4 -s ááááááááá      ááá           Little Star is ready!
  217. n215=  echo 4 -s áááááá
  218. n216=  if (%alwaysjoin1 != $null) { alwaysjoin | .timer 0 30 alwaysjoin }
  219. n217=  if (%xcheckspeed) .timer167 0 15 checkspeed
  220. n218=  halt
  221. n219=}
  222. n220=;
  223. n221=;          "keep me connected" section
  224. n222=;
  225. n223=alias giveinfo dde $1- $server(0) $+ @ $+ %server
  226. n224=alias constatus if $server = $null dde $1- tryagain
  227. n225=on 1:DISCONNECT:{
  228. n226=  titlebar Little Star 6.1 Not Connected
  229. n227=  if ((%keepme) && (%gaveup != $true)) .timer933 -o 1 15 run $mircdirbin\connect.exe $ddename $mircdir
  230. n228=  if (%sdiss = ding) ding
  231. n229=  elseif (%sdiss = speak) speak You have been disconnected from your server
  232. n230=  elseif (%sdiss != none) splay %sdiss
  233. n231=}
  234.